home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 52
/
Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso
/
Aminet
/
dev
/
lang
/
amigatalk.lha
/
general
/
Boolean.st
< prev
next >
Wrap
Text File
|
2000-02-14
|
326b
|
21 lines
Class Boolean :Object
[
& aBoolean
^ self and: [aBoolean]
|
| aBoolean
^ self or: [aBoolean]
|
and: aBlock
^ self and: [aBlock value]
|
or: aBlock
^ self or: [aBlock value]
|
eqv: aBoolean
^ self == aBoolean
|
xor: aBoolean
^ self ~~ aBoolean
]